 PDK     ,  :

Function GetMaxX:OptInt16;{   .  X (639)}

Function GetMaxY:OptInt16;{   .  Y (479)}

Function GetPixel(X,Y:OptInt16):OptWord;{   }

Procedure Circle(X,Y:OptInt16;Radius:OptWord;Color:OptByte);
{  X,Y - ,Radius - , Color - }

procedure Ellipse(X,Y:OptInt16;RadiusX,RadiusY:OptWord;Color:OptByte);
{ , X,Y - , RadiusX,RadiusY, - , Color - }

procedure Petal(X,Y:OptInt16;StartAngle,EndAngle,RadiusX,RadiusY:OptWord;Color:OptByte);
{ , X,Y - , Color - , StartAngle,EndAngle -    ,
RadiusX,RadiusY, - }

procedure ClearScreen(Color:OptByte);{ . Color -  }

ֳ         Turbo Pascal, -
GetMaxX, GetMaxY, GetPixel, Circle, Ellipse, Arc.
  Procedure P07,  uMain, ,
      Turbo Pascal  PDK.

  uTypes   Real48=Real;

 '   uTest       
   PDK.      
    uMain,   StartProgram.

  DOC,   "",     
  ,     PDK,      .